home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 001-010 / amok10 / speech / testofspeech.mod < prev    next >
Text File  |  1993-11-04  |  2KB  |  64 lines
  1. (*********************************************************************
  2.  *
  3.  *  :Program.    TestOfSpeech.mod
  4.  *  :Author.     Michael Frieß
  5.  *  :Address.    Kernerstr. 22a
  6.  *  :Address.    7000 Stuttgart 1
  7.  *  :shortcut.   [MiF]
  8.  *  :Version.    1.0
  9.  *  :Date.       01.11.88
  10.  *  :Copyright.  PD
  11.  *  :Language.   Modula-II
  12.  *  :Translator. M2Amiga
  13.  *  :Contents.   Testroutine für das Modul "Speech"
  14.  *
  15.  *********************************************************************)
  16.  
  17. MODULE TestOfSpeech;
  18.  
  19. FROM InOut   IMPORT ReadString, WriteString, WriteLn;
  20. FROM Strings IMPORT Length;
  21. FROM Speech IMPORT OpenNarrator, CloseNarrator, SayPhonemes,
  22.                    DefaultVoice, language, Translate;
  23.  
  24. CONST module = "Speach V1.0";
  25.       copyright = "Speach: (C) Copyright 1988 by Michael Frieß";
  26.  
  27. VAR Phonemes: ARRAY [1..150] OF CHAR;
  28.     Str     : ARRAY [1..80] OF CHAR;
  29.     Result  : INTEGER;
  30.  
  31. BEGIN
  32.  OpenNarrator (FALSE);
  33.  Result := Translate
  34.  ("Das ist die Spra-che des A-mi-gas.", Phonemes, German);
  35.  SayPhonemes (Phonemes, DefaultVoice);
  36.  WriteString
  37.  ("Die Texte müssen in Anführungsstriche angegeben werden und dürfen");
  38.  WriteLn; WriteString
  39.  ("eine Zeile nicht überschreiten. Silbentrennung können Sie mit");
  40.  WriteLn; WriteString
  41.  (">Underscore< markieren.");
  42.  WriteLn; WriteString
  43.  ("Das Programm wird mit RETURN ohne Texteingabe beendet.");
  44.  WriteLn;
  45.  REPEAT
  46.   Str := "";
  47.   ReadString (Str);
  48.   WriteLn;
  49.   IF Length(Str) > 0 THEN
  50.    Result := Translate (Str, Phonemes, German);
  51.    IF Result = 0 THEN
  52.     WriteString ("übersetzt in Phoneme"); WriteLn;
  53.     WriteString (Phonemes); WriteLn;
  54.     SayPhonemes (Phonemes, DefaultVoice)
  55.    ELSE
  56.     WriteString ("Fehler bei der Übersetzung.");
  57.     WriteLn
  58.    END
  59.   END;
  60.  UNTIL Length(Str) = 0;
  61.  CloseNarrator;
  62.  WriteString ("Ende des Programmes"); WriteLn;
  63. END TestOfSpeech.
  64.